home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / misc.spr < prev    next >
Encoding:
Text File  |  1994-07-08  |  9.1 KB  |  295 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 06/19/94              MISC.SPR                 10:19:33 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *       MISC/Windows Databases, Indexes, Relations        
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF USED("roster")
  45.     SELECT roster
  46.     SET ORDER TO 0
  47. ELSE
  48.     SELECT 0
  49.     USE (LOCFILE("roster.dbf","DBF","Where is roster?"));
  50.         AGAIN ALIAS roster ;
  51.         ORDER 0
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *               Windows Window definitions                
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. IF NOT WEXIST("misc") ;
  63.     OR UPPER(WTITLE("MISC")) == "MISC.PJX" ;
  64.     OR UPPER(WTITLE("MISC")) == "MISC.SCX" ;
  65.     OR UPPER(WTITLE("MISC")) == "MISC.MNX" ;
  66.     OR UPPER(WTITLE("MISC")) == "MISC.PRG" ;
  67.     OR UPPER(WTITLE("MISC")) == "MISC.FRX" ;
  68.     OR UPPER(WTITLE("MISC")) == "MISC.QPR"
  69.     DEFINE WINDOW misc ;
  70.         AT 4.333, 7.250 ;
  71.         SIZE 17.231,100.000 ;
  72.         TITLE "Miscellaneous" ;
  73.         FONT "MS Sans Serif", 8 ;
  74.         FLOAT ;
  75.         CLOSE ;
  76.         MINIMIZE ;
  77.         SYSTEM
  78. ENDIF
  79.  
  80.  
  81. *       *********************************************************
  82. *       *                                                         
  83. *       *               MISC/Windows Screen Layout                
  84. *       *                                                         
  85. *       *********************************************************
  86. *
  87.  
  88. #REGION 1
  89. IF WVISIBLE("misc")
  90.     ACTIVATE WINDOW misc SAME
  91. ELSE
  92.     ACTIVATE WINDOW misc NOSHOW
  93. ENDIF
  94. @ 3.769,7.200 GET BolProperty ;
  95.     PICTURE "@*C Property Managment" ;
  96.     SIZE 1.308,23.833 ;
  97.     DEFAULT 0 ;
  98.     FONT "MS Sans Serif", 8 ;
  99.     STYLE "BT"
  100. @ 5.615,7.200 GET M.BolReloc ;
  101.     PICTURE "@*C Relocation" ;
  102.     SIZE 1.308,14.667 ;
  103.     DEFAULT 0 ;
  104.     FONT "MS Sans Serif", 8 ;
  105.     STYLE "BT"
  106. @ 7.462,7.200 GET BolRentals ;
  107.     PICTURE "@*C Rentals" ;
  108.     SIZE 1.308,11.667 ;
  109.     DEFAULT 0 ;
  110.     FONT "MS Sans Serif", 8 ;
  111.     STYLE "BT"
  112. @ 9.308,7.200 GET BolREO ;
  113.     PICTURE "@*C REO" ;
  114.     SIZE 1.308,8.833 ;
  115.     DEFAULT 0 ;
  116.     FONT "MS Sans Serif", 8 ;
  117.     STYLE "BT"
  118. @ 1.308,4.400 SAY "Referrals:" ;
  119.     FONT "MS Sans Serif", 14 ;
  120.     STYLE "T"
  121. @ 1.308,38.400 SAY "Works with:" ;
  122.     FONT "MS Sans Serif", 14 ;
  123.     STYLE "T"
  124. @ 3.769,43.200 GET BolBuyers ;
  125.     PICTURE "@*C Buyers" ;
  126.     SIZE 1.308,10.833 ;
  127.     DEFAULT 0 ;
  128.     FONT "MS Sans Serif", 8 ;
  129.     STYLE "BT"
  130. @ 5.615,43.200 GET BolSell ;
  131.     PICTURE "@*C Sellers" ;
  132.     SIZE 1.308,10.833 ;
  133.     DEFAULT 0 ;
  134.     FONT "MS Sans Serif", 8 ;
  135.     STYLE "BT"
  136. @ 12.692,2.400 SAY "Specialty:" ;
  137.     FONT "MS Sans Serif", 14 ;
  138.     STYLE "T"
  139. @ 14.769,21.600 GET M.SpecPri ;
  140.     PICTURE "@^" ;
  141.     FROM ASPEC ;
  142.     SIZE 1.538,16.167 ;
  143.     DEFAULT 1 ;
  144.     FONT "MS Sans Serif", 8 ;
  145.     STYLE "B" ;
  146.     DISABLE
  147. @ 14.769,45.600 GET M.SpecSec ;
  148.     PICTURE "@^" ;
  149.     FROM ASPEC ;
  150.     SIZE 1.538,16.167 ;
  151.     DEFAULT 1 ;
  152.     FONT "MS Sans Serif", 8 ;
  153.     STYLE "B" ;
  154.     DISABLE
  155. @ 13.000,21.600 GET M.BolSpecPri ;
  156.     PICTURE "@*C Primary" ;
  157.     SIZE 1.308,11.333 ;
  158.     DEFAULT 0 ;
  159.     FONT "MS Sans Serif", 8 ;
  160.     STYLE "BT" ;
  161.     VALID _qr00m4rvr()
  162. @ 13.000,45.600 GET M.BolSpecSec ;
  163.     PICTURE "@*C Secondary" ;
  164.     SIZE 1.308,14.500 ;
  165.     DEFAULT 0 ;
  166.     FONT "MS Sans Serif", 8 ;
  167.     STYLE "BT" ;
  168.     VALID _qr00m4s02()
  169. @ 2.846,67.200 GET M.BolAchiev ;
  170.     PICTURE "@*C Life Time Achievment" ;
  171.     SIZE 1.308,24.833 ;
  172.     DEFAULT 0 ;
  173.     FONT "MS Sans Serif", 8 ;
  174.     STYLE "BT"
  175. @ 4.692,67.200 GET M.BolHall ;
  176.     PICTURE "@*C Hall of Fame" ;
  177.     SIZE 1.308,16.333 ;
  178.     DEFAULT 0 ;
  179.     FONT "MS Sans Serif", 8 ;
  180.     STYLE "BT"
  181. @ 12.692,72.000 SAY "Club:" ;
  182.     FONT "MS Sans Serif", 14 ;
  183.     STYLE "T"
  184. @ 12.923,84.000 GET M.club ;
  185.     PICTURE "@^ EXEC;100%;PRES" ;
  186.     SIZE 1.538,9.833 ;
  187.     DEFAULT "EXEC" ;
  188.     FONT "MS Sans Serif", 8 ;
  189.     STYLE "B"
  190. @ 1.923,64.800 TO 7.461,98.600 ;
  191.     PEN 1, 8
  192.  
  193. IF NOT WVISIBLE("misc")
  194.     ACTIVATE WINDOW misc
  195. ENDIF
  196.  
  197. READ CYCLE ;
  198.     ACTIVATE _qr00m4sbx() ;
  199.     DEACTIVATE .T.
  200.  
  201. RELEASE WINDOW misc
  202.  
  203. *       *********************************************************
  204. *       *                                                         
  205. *       *                Windows Closing Databases                
  206. *       *                                                         
  207. *       *********************************************************
  208. *
  209.  
  210. IF USED("roster")
  211.     SELECT roster
  212.     USE
  213. ENDIF
  214.  
  215. SELECT (m.currarea)
  216.  
  217.  
  218. #REGION 0
  219.  
  220. SET READBORDER &rborder
  221.  
  222. IF m.talkstat = "ON"
  223.     SET TALK ON
  224. ENDIF
  225. IF m.compstat = "ON"
  226.     SET COMPATIBLE ON
  227. ENDIF
  228.  
  229.  
  230. *       *********************************************************
  231. *       *                                                         
  232. *       * _QR00M4RVR           M.BolSpecPri VALID                 
  233. *       *                                                         
  234. *       * Function Origin:                                        
  235. *       *                                                         
  236. *       * From Platform:       Windows                            
  237. *       * From Screen:         MISC,     Record Number:   14      
  238. *       * Variable:            M.BolSpecPri                       
  239. *       * Called By:           VALID Clause                       
  240. *       * Object Type:         Check Box                          
  241. *       * Snippet Number:      1                                  
  242. *       *                                                         
  243. *       *********************************************************
  244. *
  245. FUNCTION _qr00m4rvr     &&  M.BolSpecPri VALID
  246. #REGION 1
  247. IF BolSpecPri = 1
  248.     SHOW GET M.SpecPri ENABLE
  249. ELSE
  250.     SHOW GET M.SpecPri DISABLE
  251. ENDIF
  252.  
  253. *       *********************************************************
  254. *       *                                                         
  255. *       * _QR00M4S02           M.BolSpecSec VALID                 
  256. *       *                                                         
  257. *       * Function Origin:                                        
  258. *       *                                                         
  259. *       * From Platform:       Windows                            
  260. *       * From Screen:         MISC,     Record Number:   15      
  261. *       * Variable:            M.BolSpecSec                       
  262. *       * Called By:           VALID Clause                       
  263. *       * Object Type:         Check Box                          
  264. *       * Snippet Number:      2                                  
  265. *       *                                                         
  266. *       *********************************************************
  267. *
  268. FUNCTION _qr00m4s02     &&  M.BolSpecSec VALID
  269. #REGION 1
  270. IF BolSpecSec = 1
  271.     SHOW GET M.SpecSec ENABLE
  272. ELSE
  273.     SHOW GET M.SpecSec DISABLE
  274. ENDIF
  275.  
  276. *       *********************************************************
  277. *       *                                                         
  278. *       * _QR00M4SBX           Read Level Activate                
  279. *       *                                                         
  280. *       * Function Origin:                                        
  281. *       *                                                         
  282. *       *                                                         
  283. *       * From Platform:       Windows                            
  284. *       * From Screen:         MISC                               
  285. *       * Called By:           READ Statement                     
  286. *       * Snippet Number:      3                                  
  287. *       *                                                         
  288. *       *********************************************************
  289. *
  290. FUNCTION _qr00m4sbx     && Read Level Activate
  291. *
  292. * Activate Code from screen: MISC
  293. *
  294. #REGION 1
  295. SHOW WINDOW ROSTER